# Data loading and preparing

# Load libraries
```{r}
library(rethinking)
```

# Load raw data frame
```{r}
load("./workdata/mercury_rdata_original.rdata")

## Extract relevant data
d_all_w <- mercury_df[, c("Time", "Sol", "T_S", "T_A", "C_MW", "W", "r_W")]

## Extract data for a specific data range
d_ext_w <- d_all_w[d_all_w$Time >= "2020-04-01" & d_all_w$Time <= "2020-04-30", ]

save(d_ext_w, file = "./data/d_ext_w_in.RData")
```

## Run all above
```{r}

```
